Subversion Repositories qbpwcf-lib(archive)

Rev

Rev 911 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed 

<?php

#指派命名空間爲 qbpwcf
namespace qbpwcf;

#匯入外部套件
include("../allInOne.php");

#提示目前測試的方法
echo "<hr>R::demoTextOutput - testCase 1<p>";

/*

#涵式說明:
#展示R的文字輸出範例
#回傳的結果：
#$result["status"],執行是否成功,"true"代表成功,"false"代表失敗.
#$result["error"],錯誤訊息陣列.
#$result["function"],當前執行的函數名稱.
#$result["newCreatedRfilePathAndName"],R腳本檔的位置與名稱
#$result["content"],執行完後的結果陣列,一個元素代表一列內容.
#必填參數:
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑.
$conf["fileArgu"]=__FILE__;
$demoTextOutput=R::demoTextOutput($conf);       
unset($conf);

#如果執行出錯
if($demoTextOutput["status"]==="false"){
        
        #印出結果
        var_dump($demoTextOutput);
        
        #結束執行
        exit;
        
        }#if end
        
#印出結果
var_dump($demoTextOutput);

*/

#提示目前測試的方法
echo "<hr>R::demoGraphiOutput - testCase 1<p>";

/*

#涵式說明：
#展示R的繪圖範例
#回傳結果：
#$result["status"],執行是否成功,"true"代表成功,"false"代表失敗.
#$result["error"],錯誤訊息陣列.
#$result["function"],當前執行的函數名稱.
#$result["text"],執行R所得到的文字內容.
#$result["img"],顯示圖表的語法.
#必填參數:
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑.
$conf["fileArgu"]=__FILE__;
$demoGraphiOutput=R::demoGraphiOutput($conf);

#如果失敗
if($demoGraphiOutput["status"]==="false"){
        
        #印出結果
        var_dump($demoGraphiOutput);
        
        #結束執行
        exit;
        
        }#if end
        
#印出結果
var_dump($demoGraphiOutput);

*/

#提示目前測試的方法
echo "<hr>R::decisionTreesWithPackageParty - testCase 1<p>";

/*

#函式說明:
#針對csv樣本檔作決策樹分析，
#回傳的結果:
#$result["status"],執行是否正常,"true"代表正常,"false"代表不正常.
#$result["error"],錯誤訊息陣列
#$result["lineArray"],執行結果輸出的逐行內容.
#$result["lineCount"],執行結果輸出的行數.
#必填的參數:
#$conf["inputCsvFilePosition"],字串,csv資料檔的路徑與名稱,資料檔的第一欄為各變數的標題.
$conf["inputCsvFilePosition"]="dataMiningSampleData-iris.csv";
#$conf["targetVar"],字串,要預測的變數名稱.
$conf["targetVar"]="Species";
#$conf["independentVar"],陣列字串,用來預測的變數名稱陣列.
$conf["independentVar"]=array("Sepal.Length","Sepal.Width","Petal.Length","Petal.Width");
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略的參數:
#$conf["trainDataPercent"],字串,訓練資料要佔幾%,預設70%.
#$conf["trainDataPercent"]="70%";
#$conf["testDataPercent"],字串,測試資料要佔幾%,預設30%.
#$conf["testDataPercent"]="30%";
#$conf["trainDataReportImgPositionAndName"],字串,決策樹分析訓練資料後的關聯圖表輸出位置與名稱,預設為"report.png".
$conf["trainDataReportImgPositionAndName"]=".RT/report.png";
#$conf["delSampleCsvFile"],字串,是否要在分析結束後,移除樣本csv檔案,預設為"false"不移除,"true"則代表要移除.
#$conf["delSampleCsvFile"]="false";
#參考資料:
#R的決策樹分析範例=>http://www.rdatamining.com/examples/decision-tree
var_dump(R::decisionTreeWithPackageParty($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::describedStatistic - testCase 1<p>";

/*

#函數說：
#依據樣本內容進行選項內容次數的統計
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],回傳的內容
#$result["content"][$i]["title"],第$+1個欄位的題目。
#$result["content"][$i][$j]["optionValue"],第$+1個欄位的第$j+1個選項的內容。
#$result["content"][$i][$j]["optionCount"],第$+1個欄位的第$j+1個選項的出現頻率。
#$result["content"][$i][$j]["optionPercent"],第$+1個欄位的第$j+1個選項的出現次數所佔全部選項的百分比。
#必填參數：
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#$conf["csvFileAddress"],字串,csv檔的位置與名稱
$conf["csvFileAddress"]=".RT/98、100年的問卷樣本檔(含題目)-小樣本.csv";
#參考資料:
#R的敘述統計=>http://netstat.stat.tku.edu.tw/desc.php
var_dump(R::describedStatistic($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createPie<p>";

/*

#函數說明：
#繪製圓餅圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],回傳的內容
#必填參數：
#$conf["percentArray"],要變成圓餅圖的數據,R會自動計算比例.
$conf["percentArray"]=array(1,2,3,4);
#$conf["labels"],比例名稱字串陣列。
$conf["labels"]=array("非常不滿意","不滿意","滿意","非常滿意");
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"]."png"
#$conf["pngFileName"]=".R/pie-".$SESSION["username"]."png";
#$conf["pieTitle"],字串,圓餅圖的標題,預設爲空。
#$conf["pieTitle"]="";
$createPie=R::createPie($conf);
unset($conf);

#如果執行出錯
if($createPie["status"]==="false"){
        
        #印出結果
        var_dump($createPie);
        
        #結束執行
        exit;
        
        }#if end
        
#印出結果
echo $createPie["content"];

*/

#提示目前測試的方法
echo "<hr>R::createBarPlot - testCase 1<p>";

/*

#函數說明：
#繪製長條圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],圖片的位置與名稱
#必填參數：
#$conf["countArray"],字串陣列,每個要呈現資料的次數
$conf["countArray"]=array("5","10","15","1","5");
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
$conf["countNameArray"]=array("2001","2002","2003","2004","2005");
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"]."png"
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"]."png";
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
$conf["barPlotTitle"]="比預期好;";
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
#$conf["autoRadioByCountArray"]="false";
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
#$conf["picWidth"]="2048";
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
#$conf["picHeight"]="1024";
#$conf[["xlabName"],x軸的名稱,預設爲項目
#$conf["xlabName"]="項目代號";
#$conf["ylabName"],y軸的名稱,預設爲頻率
#$conf["ylabName"]="比例";
var_dump(R::createBarPlot($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createBarPlot - testCase 2<p>";

/*

#函數說明：
#繪製長條圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],圖片的位置與名稱
#必填參數：
#$conf["countArray"],字串陣列,每個要呈現資料的次數
$conf["countArray"]=array("5","10","15","1","5");
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
$conf["countNameArray"]=array("2001","2002","2003","2004","2005");
#可省略參數：
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"]."png"
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"]."png";
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
$conf["barPlotTitle"]="比預期好;";
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
$conf["autoRadioByCountArray"]="false";
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
#$conf["picWidth"]="1024";
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
#$conf["picHeight"]="1024";
#$conf[["xlabName"],x軸的名稱,預設爲項目
$conf["xlabName"]="項目代號";
#$conf["ylabName"],y軸的名稱,預設爲頻率
$conf["ylabName"]="比例";
var_dump(R::createBarPlot($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createBarPlot - testCase 3<p>";

/*

#預警線
$conf["line"][0]["startX"]=0;
$conf["line"][0]["startY"]=25;
$conf["line"][0]["endX"]=5;
$conf["line"][0]["endY"]=25;
$conf["line"][0]["color"]="red";

#目標線
$conf["line"][1]["startX"]=0;
$conf["line"][1]["startY"]=75;
$conf["line"][1]["endX"]=5;
$conf["line"][1]["endY"]=75;
$conf["line"][1]["color"]="green";

#函數說明：
#繪製長條圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],圖片的位置與名稱
#必填參數：
#$conf["countArray"],字串陣列,每個要呈現資料的次數
$conf["countArray"]=array("50","60","75","25");
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
$conf["countNameArray"]=array("當初","現在","目標","預警");
#可省略參數：
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png"
        #若 $SESSION["username"] 不存在則會用 "NULL" 替代
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"].".png";
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
$conf["barPlotTitle"]="不滿足預警形態的追蹤分析";
#$conf["xlabName"],x軸的名稱,預設爲項目
#$conf["xlabName"]="項目";
#$conf["ylabName"],y軸的名稱,預設爲頻率
$conf["ylabName"]="比例";
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
$conf["autoRadioByCountArray"]="false";
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
#$conf["picWidth"]="640";
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
#$conf["picHeight"]="480";
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
#$conf["line"]=array();
        #$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
        #$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
        #$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
        #$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
        #$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
        #$conf["line"][$i]["color"],顏色,目前有black,green,red三種
var_dump(R::createBarPlot($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createBarPlot - testCase 4<p>";

/*

#預警線
$conf["line"][0]["startX"]=0;
$conf["line"][0]["startY"]=50;
$conf["line"][0]["endX"]=5;
$conf["line"][0]["endY"]=50;
$conf["line"][0]["color"]="red";

#目標線
$conf["line"][1]["startX"]=0;
$conf["line"][1]["startY"]=5;
$conf["line"][1]["endX"]=5;
$conf["line"][1]["endY"]=5;
$conf["line"][1]["color"]="green";

#函數說明：
#繪製長條圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],圖片的位置與名稱
#必填參數：
#$conf["countArray"],字串陣列,每個要呈現資料的次數
$conf["countArray"]=array("40","60","5","50");
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
$conf["countNameArray"]=array("當初","現在","目標","預警");
#可省略參數：
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png"
        #若 $SESSION["username"] 不存在則會用 "NULL" 替代
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"].".png";
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
$conf["barPlotTitle"]="滿足預警形態的追蹤分析";
#$conf["xlabName"],x軸的名稱,預設爲項目
#$conf["xlabName"]="項目";
#$conf["ylabName"],y軸的名稱,預設爲頻率
$conf["ylabName"]="比例";
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
$conf["autoRadioByCountArray"]="false";
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
#$conf["picWidth"]="640";
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
#$conf["picHeight"]="480";
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
#$conf["line"]=array();
        #$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
        #$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
        #$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
        #$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
        #$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
        #$conf["line"][$i]["color"],顏色,目前有black,green,red三種
var_dump(R::createBarPlot($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createBarPlot - testCase 5<p>";

/*
        
#趨勢線1
$conf["line"][0]["startX"]=1;
$conf["line"][0]["startY"]=40;
$conf["line"][0]["endX"]=2;
$conf["line"][0]["endY"]=60;
$conf["line"][0]["color"]="green";

#趨勢線2
$conf["line"][1]["startX"]=2;
$conf["line"][1]["startY"]=60;
$conf["line"][1]["endX"]=3;
$conf["line"][1]["endY"]=55;
$conf["line"][1]["color"]="red";        
        
#函數說明：
#繪製長條圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],圖片的位置與名稱
#必填參數：
#$conf["countArray"],字串陣列,每個要呈現資料的次數
$conf["countArray"]=array("40","60","55");
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
$conf["countNameArray"]=array("2009","2010","2011");
#可省略參數：
#$conf["pngFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png"
        #若 $SESSION["username"] 不存在則會用 "NULL" 替代
#$conf["pngFileName"]=".R/barplot-".$SESSION["username"].".png";
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
$conf["barPlotTitle"]="與預期相比 比預期好 2009~2011的趨勢分析";
#$conf["xlabName"],x軸的名稱,預設爲項目
$conf["xlabName"]="年代";
#$conf["ylabName"],y軸的名稱,預設爲頻率
$conf["ylabName"]="比例";
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
$conf["autoRadioByCountArray"]="false";
#$conf["disableText"],字串,是否要取消圖例的顯示，直接顯示項目名稱在長條圖裡面,"true"代表要取消圖例,"false"代表不取消圖例,預設為"false".
$conf["disableText"]="true";
#$conf["picWidth"],字串,圖片的寬度(px),預設為"2048".
#$conf["picWidth"]="640";
#$conf["picHeight"],字串,圖片的高度(px),預設為"2048".
#$conf["picHeight"]="480";
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
#$conf["line"]=array();
        #$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
        #$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
        #$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
        #$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
        #$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
        #$conf["line"][$i]["color"],顏色,目前有black,green,red三種
var_dump(R::createBarPlot($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createHist - testCase 1<p>";

/*

#函數說明：
#繪製直方圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],圖片的位置與名稱
#必填參數：
#$conf["numArray"],字串陣列,要進行分組統計的原始資料
$conf["numArray"]=array(10,20,30,40,50,50,40,30,20,10,0,0,10,20,30,50,30,20,10,40,60,30);
#$conf["classCount"],字串，資料要分成幾組
$conf["classCount"]="5"; 
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["imgFileName"],字串,圖片存放的位置與名稱,預設爲 "hist-".$SESSION["username"]."svg"
#$conf["imgFileName"]=".R/hist-".$SESSION["username"]."svg";
#$conf["del"],字串,讀取完圖片之後是否要移除之,"ture"代表要,"false"代表不要,預設為"true"代表要.
#$conf["del"]="";
#$conf["histTitle"],字串,長條圖的標題,預設爲空。
#$conf["histTitle"]="";
#$conf["xlabName"],x軸的名稱,預設爲區間
#$conf["xlabName"]="區間";
#$conf["ylabName"],y軸的名稱,預設爲頻率
#$conf["ylabName"]="頻率";
$createHist=R::createHist($conf);
unset($conf);

#如果建立長條圖失敗
if($createHist["status"]==="false"){
        
        #印出訊息
        var_dump($createHist);
        
        #結束執行
        exit;
        
        }#if end

#印出內容
echo $createHist["content"];

*/

#提示目前測試的方法
echo "<hr>R::apriori - testCase 1<p>";

/*

#函數說明：
#運用apriori進行關聯分析，用來分析多個名目變數選項組合預測某個行爲的，支持度，信度，解釋力。
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],分析結果
#必填參數：
#$conf["csvFile"],字串,要讀取的csv檔位置與名稱。
$conf["csvFile"]=".RT/aprioriData.csv";
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["forecastVarName"],字串陣列,指定多個要預測變數名稱,預設不指定。
$conf["forecastVarName"]="整體來說這次參觀你覺得";
#$conf["forecastVarValueArray"],字串陣列,指定預測多個變數要等於什麼，預設不指定。
$conf["forecastVarValueArray"]=array("非常滿意;","普通;");
var_dump(R::apriori($conf));
unset($conf);
        
*/

#提示目前測試的方法
echo "<hr>R::apriori - testCase 2<p>";

/*

#函數說明：
#運用apriori進行關聯分析，用來分析多個名目變數選項組合預測某個行爲的，支持度，信度，解釋力。
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],分析結果
#必填參數：
#$conf["csvFile"],字串,要讀取的csv檔位置與名稱。
$conf["csvFile"]=".RT/root-relatingAnalyseData.csv";
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["forecastVarName"],字串陣列,指定多個要預測變數名稱,預設不指定。
$conf["forecastVarName"]="整體來說這次參觀你覺得";
#$conf["forecastVarValueArray"],字串陣列,指定預測多個變數要等於什麼，預設不指定。
$conf["forecastVarValueArray"]=array("非常滿意;","普通;");
var_dump(R::apriori($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::apriori - testCase 3<p>";

/*

#函數說明：
#運用apriori進行關聯分析，用來分析多個名目變數選項組合預測某個行爲的，支持度，信度，解釋力。
        #分析結果會排除其中一個條件或結果變數爲空值者。
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["oriOutPut"],R原始的分析結果輸出
#$result["content"],分析結果
#$result["content"]["rulesCount"],記錄總共有幾筆關聯規則
#$result["content"]["rulesArray"],規則的內容
#$result["content"]["rulesArray"][$i],代表第$i+1個規則的內容陣列
#$result["content"]["rulesArray"][$i]["lhsName"][$j],表第$i+1個規則的第$j+1個條件的名稱
#$result["content"]["rulesArray"][$i]["lhsValue"][$j],表第$i+1個規則的第$j+1個條件名稱對應的數值內容
#$result["content"]["rulesArray"][$i]["rhsName"][$j],表第$i+1個規則的第$j+1個結果的名稱
#$result["content"]["rulesArray"][$i]["rhsValue"][$j],表第$i+1個規則的第$j+1個結果名稱對應的數值內容
#$result["content"]["rulesArray"][$i]["support"],表示$i+1個規則的support值
#$result["content"]["rulesArray"][$i]["confidence"],表示$i+1個規則的support值
#$result["content"]["rulesArray"][$i]["lift"],表示$i+1個規則的support值
#必填參數：
#$conf["csvFile"],字串,要讀取的csv檔位置與名稱,欄位數量必須大於2欄.
$conf["csvFile"]="RT/R::apriori - testCase 3.csv";
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["forecastVarName"],字串,指定多個要預測變數名稱,預設不指定.
$conf["forecastVarName"]="KRI";
#$conf["forecastVarValueArray"],字串陣列,指定預測的變數要等於哪些數值,預設不指定。
$conf["forecastVarValueArray"]=array("非常滿意","非常不滿意");
#$conf["support"],字串,支持度要多少,ex:"0.05".
$conf["support"]="0.3";
#$conf["confidence"],字串,信度要多少,ex:"0.8".
$conf["confidence"]="0.5";
#$conf["lift"],字串,解釋力要多少,ex:"1".
#$conf["lift"]="1";
var_dump(R::apriori($conf));
unset($conf);
        
*/

#提示目前測試的方法
echo "<hr>R::table - testCase 1<p>";

/*

#函數說明：
#繪製樣本中其中兩個選項的交叉表
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["RscriptContent"],執行的R腳本內容
#$result["content"],交叉表的資料
#$result["content"]["xLabelTypeName"],欄項目的類型名稱
#$result["content"]["yLabelTypeName"],列項目的類型名稱
#$result["content"]["xLabelName"],欄項目名稱陣列
#$result["content"]["yLabelName"],列項目名稱陣列
#$result["content"][$i]["xLabelName"],交叉表從上致下,從左至右第$i+1個數值的x軸項目名稱.
#$result["content"][$i]["yLabelName"],交叉表從上致下,從左至右第$i+1個數值的y軸項目名稱.
#$result["content"][$i]["value"],交叉表從上致下,從左至右第$i+1個數值.
#$result["content"]["htmlAddress"],交叉表html檔案的位址與檔案名稱. 
#必填參數：
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#$conf["dnnStr"],字串陣列,每個資料集的名稱
$conf["dnnStr"]=array("性別","卡別");
#$conf["dataArrayA"],字串陣列,要繪製交叉表的資料A.
$conf["dataArrayA"]=array("男","男","男","女","女","女","男","男","男");
#$conf["dataArrayB"],字串陣列,要繪製交叉表的資料B.
$conf["dataArrayB"]=array("白金","金","普","白金","金","普","金","金","白金");
#可省略參數：
#$conf["dataArrayC"],字串陣列,要繪製交叉表的資料C(有幾種資料就會產生幾張交叉表)
#$conf["dataArrayC"]=array("北","北","中","中","南","南");
#$conf["crossTableAddress"],字串,產生好的crossTable網頁檔要存在哪裡,名稱為何,副檔名(.html)會自動補上,不設定的話,就不會產生html檔.
$conf["crossTableAddress"]=".RT/R::table";
var_dump(R::table($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::crossTable - testCase 1<p>";

/*

#函數說明:
#交叉分析
#回傳結果:
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["content"],分析結果 
#必填參數:
#$conf["dnnStr"],字串陣列,每個資料集的名稱
$conf["dnnStr"]=array("性別","學歷");
#$conf["dataArrayA"],字串陣列,要繪製交叉表的資料A,元素數量必須跟$conf["dataArrayB"]一樣。
$conf["dataArrayA"]=array("M","M","M","M","M","M","M","F","F","F","M","M","M","M","M","M","M","F","F","F","M","M","M","M","M","M","M","F","F","F","M","M","M","M","M","M","M","F","F","F");
#$conf["dataArrayB"],字串陣列,要繪製交叉表的資料B,元素數量必須跟$conf["dataArrayA"]一樣。
$conf["dataArrayB"]=array("大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學","大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學","大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學","大學","大學","研究所","研究所","研究所","高中","高中","高中","高中","大學");
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數:
#$conf["crossTableAddress"],字串,產生好的交叉分析網頁檔要存在哪裡,名稱為何,副檔名(.html)會自動補上,不設定的話,就不會產生html檔.
$conf["crossTableAddress"]=".RT/crossTable-".$_SESSION["username"];
#參考資料來源:
#http://www2.nsysu.edu.tw/politics/liu/teaching/dataAnalysis/lectureNotes/03_descriptiveStatistics.R
var_dump(R::crossTable($conf));
unset($conf);

*/

#提示目前測試的方法
echo "<hr>R::createFixedVectorVar - testCase 1<p>";
        
/*

#儲存要寫入的R語法變數
$rCode=array("#R語法開始~");

#涵式說明:
#避免超出4096bytes限制的條件下產生向量變數語法
#回傳結果:
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["rVectorCreate"],建立R向量變數的語法陣列,一個元素代表一列的內容。
#必填參數:
#$conf["vectorName"],字串，向量變數在R裡面的名稱。
$conf["vectorName"]="dataA";
#$conf["vectorData"],陣列變數,要產生的向量變數資料。
$conf["vectorData"]=array("你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女","你","很","好","我","是","帥","哥","她","是","美","女");
#$conf["writeTarget"],參考陣列變數,向量變數產生的語法要寫入哪個儲存R腳本的陣列變數。
$conf["writeTarget"]=&$rCode;
var_dump(R::createFixedVectorVar($conf));
unset($conf);

#檢查R語法是否有增加建立項目變數的語法
var_dump($rCode);

*/

#提示目前測試的方法
echo "<hr>R::createFixedVectorVar - testCase 2<p>";

/*

#儲存要寫入的R語法變數
$rCode=array("#R語法開始~");

#涵式說明:
#避免超出4096bytes限制的條件下產生向量變數語法
#回傳結果:
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["rVectorCreate"],建立R向量變數的語法陣列,一個元素代表一列的內容。
#必填參數:
#$conf["vectorName"],字串，向量變數在R裡面的名稱。
$conf["vectorName"]="dataA";
#$conf["vectorData"],陣列變數,要產生的向量變數資料。
$conf["vectorData"]=array("你","很");
#$conf["writeTarget"],參考陣列變數,向量變數產生的語法要寫入哪個儲存R腳本的陣列變數。
$conf["writeTarget"]=&$rCode;
var_dump(R::createFixedVectorVar($conf));
unset($conf);

#檢查R語法是否有增加建立項目變數的語法
var_dump($rCode);

*/

#提示目前測試的方法
echo "<hr>R::createBarPlot - testCase 1<p>";

/*

#函數說明：
#繪製長條圖
#回傳結果：
#$result["status"],執行正常與否,"true"代表正常；"false"代表不正常
#$result["error"],錯誤訊息陣列
#$result["function"],當前函數名稱
#$result["img"],圖片的位置與名稱
#$result["content"],放置圖表的語法
#必填參數：
#$conf["countArray"],字串陣列,每個要呈現資料的次數,請輸入大於零的整數.
$conf["countArray"]=array("10","20","30","25","15");
#$conf["countNameArray"],字串陣列，每個要呈現資料的名稱
$conf["countNameArray"]=array("2009","2010","2011","2012","2013");
#$conf["fileArgu"],字串,php變數__FILE__的內容,亦即該檔案在檔案系統的絕對路徑
$conf["fileArgu"]=__FILE__;
#可省略參數：
#$conf["imgFileName"],字串,圖片存放的位置與名稱,預設爲 "pie-".$SESSION["username"].".png",若 $SESSION["username"] 不存在則會用 "NULL" 替代
#$conf["imgFileName"]=".R/barplot-".$SESSION["username"].".png";
#$conf["del"],字串,是否要讀取完圖片後就把圖片檔案移除,"false"代表不要,"true"代表要,預設為"true".
#$conf["del"]="true";
#$conf["barPlotTitle"],字串,長條圖的標題,預設爲空。
#$conf["barPlotTitle"]="";
#$conf["xlabName"],x軸的名稱,預設爲項目
#$conf["xlabName"]="項目";
#$conf["ylabName"],y軸的名稱,預設爲頻率
#$conf["ylabName"]="頻率";
#$conf["autoRadioByCountArray"],字串,是否要自動計算與呈現每個項目在當前長條所有項目中的比例,"true"為要顯示,"false"為不顯示,預設為"true".
#$conf["autoRadioByCountArray"]="true";
#$conf["disableText"],字串,是否要取消圖例的顯示，直接顯示項目名稱在長條圖裡面,"true"代表要取消圖例,"false"代表不取消圖例,預設為"false".
#$conf["disableText"]="true";
#$conf["picWidth"],字串,圖片的寬度(px),預設為 資料筆數*200 .
#$conf["picWidth"]="";
#$conf["picHeight"],字串,圖片的高度(px),預設為 (最大頻率-最小頻率)/100*600+20*資料筆數 .
#$conf["picHeight"]="";
#$conf["line"],二維字串陣列,代表要在圖上面畫幾條線
#$conf["line"]=array();
#$conf["line"][$i],一維字串陣列，代表要在圖上劃第$i+1條線的資訊
#$conf["line"][$i]["startX"],整數,代表線條起始點的X軸坐標.
#$conf["line"][$i]["startY"],整數,代表線條起始點的Y軸坐標.
#$conf["line"][$i]["endX"],整數,代表線條終點的X軸坐標.
#$conf["line"][$i]["endY"],整數,代表線條終點的Y軸坐標.
#$conf["line"][$i]["color"],顏色,目前有black,green,red三種
$createBarPlot=R::createBarPlot($conf);
unset($conf);

#如果建立失敗
if($createBarPlot["status"]==="false"){
        
        #印出訊息
        var_dump($createBarPlot);
        
        #結束程式
        exit;
        
        }#if end

#印出語法
echo $createBarPlot["content"];

*/

?>