“…cat(sprintf('Column Means: 1:%0.3f 2:%0.3f 3:%0.3f 4:%0.3f 5:%0.3f 6:%0.3f 7:%0.3f 8:%0.3f 9:%0.3f 10:%0.3f\n', FeatureMeans [1],FeatureMeans [2],FeatureMeans [3],FeatureMeans [4], FeatureMeans [5],FeatureMeans [6],FeatureMeans [7],FeatureMeans [8], FeatureMeans [9],FeatureMeans [10])) FeatureSDs<-colSds(Both_Sessions) # Get the column SDs. cat(sprintf('Column SDs : 1:%0.3f 2:%0.3f 3:%0.3f 4:%0.3f 5:%0.3f 6:%0.3f 7:%0.3f 8:%0.3f 9:%0.3f 10:%0.3f\n', FeatureSDs [1],FeatureSDs [2],FeatureSDs [3],FeatureSDs [4], FeatureSDs [5],FeatureSDs [6],FeatureSDs [7],FeatureSDs [8], FeatureSDs [9],FeatureSDs [10])) # Create a Subject Number vector Subject<-c(seq(1:n),seq(1,n)) # Now we create a Session Vector Session<-vector(mode='numeric',length = 0) Session[1:n]<-1; Session[(n+1):(n*2)]<-2; # Horizontally concatenate the Subject Vector, # the Session vector and the feature data into a # single dataframe. Feature_DF <-data.frame(Subject,Session,Both_Sessions) names(Feature_DF)<-c("Subject","Session","Feat01","Feat02","Feat03", "Feat04","Feat05","Feat06","Feat07","Feat08", "Feat09","Feat10") cat(sprintf('\nWhich directory will the data be written to: %s\n\n',getwd())) FeatureFileName<-paste0('SynthFeatSet_NSess_2_ICC_Targ_', as.character(ICC_Target*10),'_NFeat_',as.character(k),'_NSubs_', as.character(n),'.…”