STATISTICA







STATISTICA BASIC Program Blaise.stb

{ This program, which is called from Blaise.scl will add variable names, casenames, text values, file header information, etc. to the Simple.sta data set created with Blaise.scl.

Program written, modified, or edited at StatSoft, Inc.
}

{$I:'stadev.inc'}
{open the .sta file}
handle := StaOpenFile ("c:\stat\simple.sta");
{add variable names}
StaSetVarName(handle, 1, "Name");
StaSetVarName(handle, 2, "Age");
StaSetVarName(handle, 3, "PocketMo");
StaSetVarName(handle, 4, "Gender");
StaSetVarName(handle, 5, "BirthDay");
StaSetVarName(handle, 6, "ATime");
StaSetVarName(handle, 7, "Degrees1");
StaSetVarName(handle, 8, "Degrees2");
StaSetVarName(handle, 9, "Degrees3");
{add long variable names}
StaSetVarLongName(handle, 1, "Name of respondent");
StaSetVarLongName(handle, 2, "Age of person");
StaSetVarLongName(handle, 3, "Money in pocket");
StaSetVarLongName(handle, 4, "Gender");
StaSetVarLongName(handle, 5, "DateOfBirth");
StaSetVarLongName(handle, 6, "ATime");
StaSetVarLongName(handle, 7, "Degrees");
StaSetVarLongName(handle, 8, "Degrees");
StaSetVarLongName(handle, 9, "Degrees");
{add text values}
StaAddLabel(handle, 4, 1, "Male", "Male");
StaAddLabel(handle, 4, 2, "Female", "Female");
for i:= 7 to 9 do begin
 StaAddLabel(handle, i, 1, "Bachelor", "Bachelors");
 StaAddLabel(handle, i, 2, "Masters", "Masters");
 StaAddLabel(handle, i, 3, "PHd", "PHd");
end;
{close the .sta file and accept changes}
StaCloseFile(handle);
Exit; 
Back to List of Programs



[StatSoft]
2300 East 14th Street, Tulsa, OK 74104
Phone: (918) 749-1119; Fax: (918) 749-2217

[StatSoft]e-mail: info@statsoft.com

©Copyright StatSoft, Inc., 1984-2004.
StatSoft, StatSoft logo, STATISTICA, SEWSS, SEDAS, Data Miner, SEPATH and GTrees are trademarks of StatSoft, Inc.