1.安裝rgl 包、 evd 包和 MASS 包：
> install.packages("rgl")
Installing package(s) into ‘D:/program/R/library’
(as ‘lib’ is unspecified)
試開URL’http://cran.dataguru.cn/bin/windows/contrib/2.15/rgl_0.92.892.zip'
Content type 'application/zip' length 1937097 bytes (1.8 Mb)
打開了URL
downloaded 1.8 Mb
package ‘rgl’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\LiQiang\AppData\Local\Temp\RtmpIjwxP2\downloaded_packages
> install.packages("evd")
Installing package(s) into ‘D:/program/R/library’
(as ‘lib’ is unspecified)
試開URL’http://cran.dataguru.cn/bin/windows/contrib/2.15/evd_2.3-0.zip'
Content type 'application/zip' length 1176009 bytes (1.1 Mb)
打開了URL
downloaded 1.1 Mb
package ‘evd’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\LiQiang\AppData\Local\Temp\RtmpIjwxP2\downloaded_packages
> install.packages("MASS")
Installing package(s) into ‘D:/program/R/library’
(as ‘lib’ is unspecified)
試開URL’http://cran.dataguru.cn/bin/windows/contrib/2.15/MASS_7.3-21.zip'
Content type 'application/zip' length 872270 bytes (851 Kb)
打開了URL
downloaded 851 Kb
package ‘MASS’ successfully unpacked and MD5 sums checked
The downloaded binary packages are in
C:\Users\LiQiang\AppData\Local\Temp\RtmpIjwxP2\downloaded_packages
2. 輸入程序
library(rgl)
library(MASS)
library(evd);
data(lossalae)
U=rand(lossalae[,1]+rnorm(nrow(lossalae),mean=0,sd=.001))/(nrow(lossalae)+1)
V=rank(lossalae[,2])/(nrow(lossalae)+1)
M=kde2d(qnorm(U), qnorm(V), n=35)
persp3d(M$x, M$y, M$z, col='green',xlab="loss", ylab="alae", zlab="")
3. 輸出 3D 圖
更多文章、技術交流、商務合作、聯系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
