Hello, all, I got a database with 2 outputs, y1 and y2. The Random forest analysis was performed, and then for y1 the average square error of baseline fit statistics is 33.4 which is too big, and for y2 the errors are less than 0.1.   I tired a couple of tricks, e.g. increase max tress, variables to try etc., but the average square error has not improved. Would you please give some suggestions on how to improve the RF predictivity?   Many thanks ... View more

Hello, all, can I ask a question about random forest. I got SAS miner to play with random forest, but it only can do prediction on one response. Unfortunately, my case has 6 responses. I did some research that multiple responses random forest is applicable. Could you give me some information about how to do RF with multiple responses in SAS environment ?   Many thanks  ... View more

Hello, experts, the official PLS procedure manual shows that the prediction of new data is performed by combining training data and new data (new data dont have value of responses). I did experiment, say 200 data items for model training, and 2000 new data items for prediction. The results are quite strange that the 2000 predicted results are quite similar (variability is less than 0.3), which is not right for sure.    I would like to have some suggestions about why and how to use PLS procedure properly to get results for this situation, aka size of training data is much smaller than size of new data to be predicted?   Thanks in advance. ... View more

Hello, experts, I have created specific multiple responses PLS model, and would like to use score approach for prediction. I use the code below:   /* store score from pls*/ PROC PLS DATA=WORK.training NFAC=4 missing=EM(MAXITER=3) METHOD=PLS NOCENTER NOSCALE  plots=(vip dmodx) VARSS NOCVSTDIZE details;  MODEL &Y1 = &X1 &X2 &X3 &X4 &X5 &X6 &X7 &X8 &X9 &X10 &X11 &X12 &X13/solution;  ods output ParameterEstimates=WORK.Parm;  OUTPUT OUT=PRED1 PREDICTED=p_Y1 p_Y2 P_Y3 p_Y4 p_Y5; RUN; proc transpose data=WORK.Parm(rename=(RowName=_NAME_)) out=WORK.tParm; data WORK.tParm; set tParm;       _TYPE_ = 'PARMS'; RUN;  QUIT; /* use score to get prediction*/ proc score data=WORK.prediction (drop=Y1 Y2 Y3 Y4 Y5) score=WORK.tParm out=ScoreOuttest type=parms nostd predict; var &X1 &X2 &X3 &X4 &X5 &X6 &X7 &X8 &X9 &X10 &X11 &X12 &X13; run;   the issue is that I found the predict results generated from PLS procedure and score procedure are different on training dataset. Can experts give some explanation or suggestions on this?      ... View more

Hello, I have built a process flow, and to schedule this task, i v build a order list as well, name 'orderlist' under 'ordered list'. To schedule this orderlist, I modified the schedule vbs as blow.   ========================== Option Explicit Dim app ' As SASEGuide.Application Call dowork 'shut down the app If not (app Is Nothing) Then app.Quit Set app = Nothing End If Sub dowork() On Error Resume Next '---- ' Start up Enterprise Guide using the project name '---- Dim prjName ' As String Dim prjObject ' As SASEGuide.Project Dim containerName ' As String Dim containerObject ' As SASEGuide.Container Dim containerColl ' As SASEGuide.ContainerCollection prjName = "C:\Users\xfx89651\250_50_Project.egp" ' Project Name containerName = "OrderedList" ' Container Name Set app = CreateObject("SASEGObjectModel.Application.7.1") If Checkerror("CreateObject") = True Then Exit Sub End If Set prjObject = app.Open(prjName,"") If Checkerror("App.Open") = True Then Exit Sub End If '----- 'Get The Container Collection and Object '----- Set containerColl = prjObject.ContainerCollection If Checkerror("Project.ContainerCollection") = True Then Exit Sub End If Dim i ' As Long Dim j ' As Long Dim count ' As Long Dim count_OL ' As Long count = containerColl.count For i = 0 To count - 1 Set containerObject = containerColl.Item(i) If Checkerror("ContainerCollection.Item") = True Then Exit Sub End If If (containerObject.Name = "Ordered Lists") Then count_OL = containerOjbect.items.count For j = 0 to count_OL - 1 if Checkerror("ContainerCollection.Item") = True Then Exit SUb End if Set orderedListObject = containerObject.items.item(j) if (orderedListObject.name = containerName) then exit for Else set orderedlistObject = Nothing end if Next Exit For Else Set containerObject = Nothing Set orderedListObject = Nothing End If Next If not (containerObject Is Nothing) Then '---- ' Run the Container '---- containerObject.Run If Checkerror("Container.Run") = True Then Exit Sub End If End If '----- ' Save the new project '----- prjObject.Save If Checkerror("Project.Save") = True Then Exit Sub End If '----- ' Close the project '----- prjObject.Close If Checkerror("Project.Close") = True Then Exit Sub End If End Sub Function Checkerror(fnName) Checkerror = False Dim strmsg ' As String Dim errNum ' As Long If Err.Number <> 0 Then strmsg = "Error #" & Hex(Err.Number) & vbCrLf & "In Function " & fnName & vbCrLf & Err.Description 'MsgBox strmsg 'Uncomment this line if you want to be notified via MessageBox of Errors in the script. Checkerror = True End If End Function   ====     a strange thing is that, when I execute the vbs and it can generate the output successfully. But, when I create schedule in EG and link the schedule with the vbs, the ouput is not successfully produced.   would experts can give me some suggestions on this?   Many thanks       ... View more

Hello, experts.   I have established a model in enterprise guide, and the model results are stored in SAS table. IT create a table in Oracle space with same structure of model results (col names, length etc are same).   would you please provide some suggestions on how to load the data from SAS table to Oracle table? (truncate existing records in Oracle data table first).   Many thanks.       ... View more