> #
>> # Generate the figures (on screen)
>> #
>> # Image generation - function definition
>> pic_onscr<-function(matrix, title, cex_val=1)
> + {x11() + par(mgp=c(5,2,0), # axis margins + # (title,
> labels, line) + mar=c(7,4,4,2), # plot margins (b,l,t,r) +
> las=1) # horizontal labels + plot(matrix, # data to plot +
> cex=cex_val, # font size + dimen=2 # dimensions to plot +
> ) + title(main=title) # title of plot + }
>> # Plot LDA scores with sample names
>> pic_onscr(lda_result,"Linear Discriminant Analysis")
> Error in plot(matrix, cex = cex_val, dimen = 2) : error in
> evaluating the argument 'x' in selecting a method for
> function 'plot': Error: object 'lda_result' not found
>> # For plotting with larger font size, use a different
>> value of cex: # pic_onscr(lda_result, "LDA Plot",
>> dimen=2, cex=3)
>>
>> #
>> # Generate figures as image files
>> #
>> # (Uncomment blocks as necessary)
>>
>> ##### jpeg ##### # pic_jpg<-function(filename, matrix,
>> title, cex_val=1) # {# Start jpeg device with basic
>> settings # jpeg(filename, # quality=100, # image quality
>> (percent) # bg="white", # background colour # res=300, #
>> image resolution (dpi) # units="in", width=8.3,
>> height=5.8 # image dimensions (inches) # ) #
>> par(mgp=c(5,2,0), # axis margins # # (title, labels,
>> line) # mar=c(7,4,4,2), # plot margins (b,l,t,r) # las=1
>> # horizontal labels # ) # # Draw the plot # plot(matrix,
>> # data to plot # cex=cex_val, # font size # dimen=2 #
>> dimensions to plot # ) # title(main=title) # title of
>> plot
>> #
>> # dev.off() # } # pic_jpg("LDA.jpg", lda_result,
"Linear
>> Discriminant Analysis") ##### end jpeg #####
>>
>> ##### png ##### # pic_png<-function(filename, matrix,
>> title, cex_val=1) # {# Start png device with basic
>> settings # png(filename, # bg="white", # background
>> colour # res=300, # image resolution (dpi) # units="in",
>> width=8.3, height=5.8 # image dimensions (inches) # ) #
>> par(mgp=c(5,2,0), # axis margins # # (title, labels,
>> line) # mar=c(7,4,4,2), # plot margins (b,l,t,r) # las=1
>> # horizontal labels # ) # # Draw the plot # plot(matrix,
>> # data to plot # cex=cex_val, # font size # dimen=2 #
>> dimensions to plot # ) # title(main=title) # title of
>> plot
>> #
>> # dev.off() # } # pic_png("LDA.png", lda_result,
"Linear
>> Discriminant Analysis") ##### end png #####
>>
>> ##### tiff ##### # pic_tiff<-function(filename, matrix,
>> title, cex_val=1) # {# Start tiff device with basic
>> settings # tiff(filename, # bg="white", # background
>> colour # res=300, # image resolution (dpi) # units="in",
>> width=8.3, height=5.8, # image dimensions (inches) #
>> compression="none" # image compression # # (one of none,
>> lzw, zip) # ) # par(mgp=c(5,2,0), # axis margins # #
>> (title, labels, line) # mar=c(7,4,4,2), # plot margins
>> (b,l,t,r) # las=1 # horizontal labels # ) # # Draw the
>> plot # plot(matrix, # data to plot # cex=cex_val, # font
>> size # dimen=2 # dimensions to plot # ) #
>> title(main=title) # title of plot
>> #
>> # dev.off() # } # pic_tiff("LDA.tif", lda_result,
"Linear
>> Discriminant Analysis") ##### end tiff #####
>>
could you show me howto use the LDA.R.. the graph not display
[[alternative HTML version deleted]]
