Module: Statsample::GGobi

Defined in:
lib/statsample/converters.rb

Class Method Summary collapse

Class Method Details

.out(dataset, opt = {}) ⇒ Object 



271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
 
# File 'lib/statsample/converters.rb', line 271

def out(dataset,opt={})
	require 'ostruct'
	default_opt = {:dataname => "Default", :description=>"", :missing=>"NA"}
	default_opt.merge! opt
	carrier=OpenStruct.new
	carrier.categorials=[]
	carrier.conversions={}
	variables_def=dataset.fields.collect{|k|
		variable_definition(carrier,dataset[k],k)
	}.join("\n")
	
	indexes=carrier.categorials.inject({}) {|s,c|
		s[dataset.fields.index(c)]=c
		s
	}
	records=""
	dataset.each_array {|c|
		indexes.each{|ik,iv|
			c[ik]=carrier.conversions[iv][c[ik]]
		}
		records << "<record>#{values_definition(c, default_opt[:missing])}</record>\n"
	}
	
out=<<EOC
<?xml version="1.0"?>
<!DOCTYPE ggobidata SYSTEM "ggobi.dtd">
<ggobidata count="1">
<data name="#{default_opt[:dataname]}">
<description>#{default_opt[:description]}</description>
<variables count="#{dataset.fields.size}">
#{variables_def}
</variables>
 <records count="#{dataset.cases}" missingValue="#{default_opt[:missing]}">
#{records}
</records>

</data>
</ggobidata>
EOC

out

end

.values_definition(c, missing) ⇒ Object 



314
315
316
317
318
319
320
321
322
323
324
 
# File 'lib/statsample/converters.rb', line 314

def values_definition(c,missing)
  c.collect{|v|
    if v.nil?
      "#{missing}"
    elsif v.is_a? Numeric
      "#{v}"
    else
      "#{v.gsub(/\s+/,"_")}"
    end
  }.join(" ")
end

.variable_definition(carrier, v, name, nickname = nil) ⇒ Object

Outputs a string for a variable definition v = vector name = name of the variable nickname = nickname



329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
 
# File 'lib/statsample/converters.rb', line 329

def variable_definition(carrier,v,name,nickname=nil)
	nickname = (nickname.nil? ? "" : "nickname=\"#{nickname}\"" )
	if v.type==:nominal or v.data.find {|d|  d.is_a? String }
		carrier.categorials.push(name)
		carrier.conversions[name]={}
		factors=v.factors
		out ="<categoricalvariable name=\"#{name}\" #{nickname}>\n"
		out << "<levels count=\"#{factors.size}\">\n"
		out << (1..factors.size).to_a.collect{|i|
			carrier.conversions[name][factors[i-1]]=i
			"<level value=\"#{i}\">#{v.labeling(factors[i-1])}</level>"
		}.join("\n")
		out << "</levels>\n</categoricalvariable>\n"
		out
	elsif v.data.find {|d| d.is_a? Float}
		"<realvariable name=\"#{name}\" #{nickname} />"
	else
		"<integervariable name=\"#{name}\" #{nickname} />"
	end
end

.write(dataset, filename, opt = {}) ⇒ Object 



266
267
268
269
270
 
# File 'lib/statsample/converters.rb', line 266

def write(dataset,filename,opt={})
  File.open(filename,"w") {|fp|
    fp.write(self.out(dataset,opt))
  }
end