if(substr(R.version[["os"]], 1,5) == "linux") { ##-- only on Linux
Sys.cpuinfo() # which is often ugly
local({I <- Sys.cpuinfo(); I[ "flags" != names(I) ] })
Sys.MIPS()
Sys.MIPS() / as.numeric(Sys.cpuinfo()["cpu MHz"]) ## < often about 2
}
Run the code above in your browser using DataLab