Matches in Nanopublications for { ?s <http://purl.org/wf4ever/wf4ever#script> ?o ?g. }
Showing items 1 to 38 of
38
with 100 items per page.
- Rshell script "setwd("/Users/francescodeleo/Desktop/rastafile") require(quantreg) require(splines) require(raster) require(maps) require(Rserve) invasive<-read.csv(file.choose("invasive"),header=TRUE,dec=",",sep=";",quote="\"") names(invasive) str(invasive) sp<-unique(invasive$species) for(k in 1:length(sp)){ png(paste(sp[k],'.png'),height=1000,width=750) par(cex=3,mfrow=c(3,3),lwd=2,mar=c(4,5,4,6)) pel_data<-invasive[invasive$species==sp[k],] pel_data$year<-as.numeric(pel_data$year) coordinates(pel_data)<-c('x.long','y.lat') m<-c(2009,2010,2011,2012,2013,2014,2015) for(i in 1:length(m)){ if(TRUE%in%(pel_data$year<=m[i]&pel_data$year<=m[i])){ pel_dataz<-pel_data[pel_data$year<=m[i]&pel_data$year<=m[i],] rasta<-raster(ext=extent(pel_data)*1.1,res=.33) rasta_fari<-rasterize(pel_dataz,rasta,field='species',fun="count",zlim=c(0,2)) } else rasta_fari<-raster(ext=extent(pel_data)*1.1,res=.33,vals=0) plot(log10(rasta_fari),main=paste('Year',m[i]), col=rev(heat.colors(20)),cex.main=2,xaxt='n',yaxt='n',legend.mar=10,legend.shrink =.95,legend.width=1.5, legend.args=list(text='log10(Number of blooms)',cex=.75,side=4,font=2,line=3.25)) map(add=T,col='grey',fill=T) } dev.off() }" assertion.
- create_input_dir script "File temp = File.createTempFile("env-dir", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_input_zip script "File temp = File.createTempFile("envZipFile", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_jar_file script "File temp = File.createTempFile("maxent", ".jar"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_output_zip script "File temp = File.createTempFile("maxent-output", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_sample_file script "File temp = File.createTempFile("sample_file", ".csv"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- output_dir script "File temp = File.createTempFile("maxent-cnr", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_python_script_file script "File temp = File.createTempFile("up2seafile", ".py"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_exe_file script "File temp = File.createTempFile("VSM", ".out"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_exe_file script "File temp = File.createTempFile("VSM", ".out"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_exe_file script "File temp = File.createTempFile("VSM", ".out"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_exe_file script "File temp = File.createTempFile("VSM", ".out"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_exe_file script "File temp = File.createTempFile("VSM", ".out"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_input_dir script "File temp = File.createTempFile("in-dir", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_input_dir script "File temp = File.createTempFile("in-dir", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_input_dir script "File temp = File.createTempFile("in-dir", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_input_dir script "File temp = File.createTempFile("in-dir", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_input_dir script "File temp = File.createTempFile("in-dir", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_input_zip script "File temp = File.createTempFile("inZipFile", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_input_zip script "File temp = File.createTempFile("inZipFile", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_input_zip script "File temp = File.createTempFile("inZipFile", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_input_zip script "File temp = File.createTempFile("inZipFile", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_input_zip script "File temp = File.createTempFile("inZipFile", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_output_dir script "File temp = File.createTempFile("VSM-ingv", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_output_dir script "File temp = File.createTempFile("VSM-ingv", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_output_dir script "File temp = File.createTempFile("VSM-ingv", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_output_dir script "File temp = File.createTempFile("VSM-ingv", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_output_dir script "File temp = File.createTempFile("VSM-ingv", ".dir"); temp.delete(); temp.mkdir(); directoryPath = temp.getCanonicalPath();" assertion.
- create_output_zip script "File temp = File.createTempFile("VSM-output", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_output_zip script "File temp = File.createTempFile("VSM-output", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_output_zip script "File temp = File.createTempFile("VSM-output", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_output_zip script "File temp = File.createTempFile("VSM-output", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_output_zip script "File temp = File.createTempFile("VSM-output", ".zip"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_python_script_file script "File temp = File.createTempFile("up2seafile", ".py"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_python_script_file script "File temp = File.createTempFile("up2seafile", ".py"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_python_script_file script "File temp = File.createTempFile("up2seafile", ".py"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_python_script_file script "File temp = File.createTempFile("up2seafile", ".py"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
- create_python_script_file script "File temp = File.createTempFile("up2seafile", ".py"); temp.delete(); temp.createNewFile(); filePath = temp.getCanonicalPath();" assertion.
!["setwd("/Users/francescodeleo/Desktop/rastafile") require(quantreg) require(splines) require(raster) require(maps) require(Rserve) invasive<-read.csv(file.choose("invasive"),header=TRUE,dec=",",sep=";",quote="\"") names(invasive) str(invasive) sp<-unique(invasive$species) for(k in 1:length(sp)){ png(paste(sp[k],'.png'),height=1000,width=750) par(cex=3,mfrow=c(3,3),lwd=2,mar=c(4,5,4,6)) pel_data<-invasive[invasive$species==sp[k],] pel_data$year<-as.numeric(pel_data$year) coordinates(pel_data)<-c('x.long','y.lat') m<-c(2009,2010,2011,2012,2013,2014,2015) for(i in 1:length(m)){ if(TRUE%in%(pel_data$year<=m[i]&pel_data$year<=m[i])){ pel_dataz<-pel_data[pel_data$year<=m[i]&pel_data$year<=m[i],] rasta<-raster(ext=extent(pel_data)*1.1,res=.33) rasta_fari<-rasterize(pel_dataz,rasta,field='species',fun="count",zlim=c(0,2)) } else rasta_fari<-raster(ext=extent(pel_data)*1.1,res=.33,vals=0) plot(log10(rasta_fari),main=paste('Year',m[i]), col=rev(heat.colors(20)),cex.main=2,xaxt='n',yaxt='n',legend.mar=10,legend.shrink =.95,legend.width=1.5, legend.args=list(text='log10(Number of blooms)',cex=.75,side=4,font=2,line=3.25)) map(add=T,col='grey',fill=T) } dev.off() }"](?object=%22setwd(%22%2FUsers%2Ffrancescodeleo%2FDesktop%2Frastafile%22)%0Arequire(quantreg)%0Arequire(splines)%0Arequire(raster)%0Arequire(maps)%0Arequire(Rserve)%0A%0A%0Ainvasive%3C-read.csv(file.choose(%22invasive%22)%2Cheader%3DTRUE%2Cdec%3D%22%2C%22%2Csep%3D%22%3B%22%2Cquote%3D%22%5C%22%22)%0A%0Anames(invasive)%0Astr(invasive)%0Asp%3C-unique(invasive%24species)%0A%0Afor(k%20in%201%3Alength(sp))%7B%0A%20%20png(paste(sp%5Bk%5D%2C'.png')%2Cheight%3D1000%2Cwidth%3D750)%0A%20%20par(cex%3D3%2Cmfrow%3Dc(3%2C3)%2Clwd%3D2%2Cmar%3Dc(4%2C5%2C4%2C6))%0A%20%20pel_data%3C-invasive%5Binvasive%24species%3D%3Dsp%5Bk%5D%2C%5D%0A%20%20pel_data%24year%3C-as.numeric(pel_data%24year)%0A%20%20coordinates(pel_data)%3C-c('x.long'%2C'y.lat')%0A%20%20m%3C-c(2009%2C2010%2C2011%2C2012%2C2013%2C2014%2C2015)%0A%20%20for(i%20in%201%3Alength(m))%7B%0A%20%20%20%20if(TRUE%25in%25(pel_data%24year%3C%3Dm%5Bi%5D%26pel_data%24year%3C%3Dm%5Bi%5D))%7B%0A%20%20%20%20%20%20pel_dataz%3C-pel_data%5Bpel_data%24year%3C%3Dm%5Bi%5D%26pel_data%24year%3C%3Dm%5Bi%5D%2C%5D%0A%20%20%20%20%20%20rasta%3C-raster(ext%3Dextent(pel_data)*1.1%2Cres%3D.33)%0A%20%20%20%20%20%20rasta_fari%3C-rasterize(pel_dataz%2Crasta%2Cfield%3D'species'%2Cfun%3D%22count%22%2Czlim%3Dc(0%2C2))%0A%20%20%20%20%7D%0A%20%20%20%20else%20rasta_fari%3C-raster(ext%3Dextent(pel_data)*1.1%2Cres%3D.33%2Cvals%3D0)%0A%20%20%20%20plot(log10(rasta_fari)%2Cmain%3Dpaste('Year'%2Cm%5Bi%5D)%2C%0A%20%20%20%20%20%20%20%20%20col%3Drev(heat.colors(20))%2Ccex.main%3D2%2Cxaxt%3D'n'%2Cyaxt%3D'n'%2Clegend.mar%3D10%2Clegend.shrink%20%3D.95%2Clegend.width%3D1.5%2C%0A%20%20%20%20%20%20%20%20%20legend.args%3Dlist(text%3D'log10(Number%20of%20blooms)'%2Ccex%3D.75%2Cside%3D4%2Cfont%3D2%2Cline%3D3.25))%0A%20%20%20%20map(add%3DT%2Ccol%3D'grey'%2Cfill%3DT)%0A%20%20%7D%0A%20%20dev.off()%0A%7D%22){kind=link}